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SHEET 0 

OF 9 











TITLE CORE STORAGE TEST - H 20K 



DTX05H 



MAHHTYPF 1620-1 Ry 



HNJ 



APPR. 



DATE 



ENGINEERING CHANGE HISTORY 



E/C NO. 



DATE 
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SHEETS AFFECTED 



1-9 



j E/C NO. 


404980 














DATE 
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* 
« 



0TX05H 

1620 MEMORY TEST 20K MACHINE 



THIS FIRST PART KEEPS TRACK OF WHICH PATTERN IS 
TO BE WRITTEN NEXT AND GENERATES SAME »N LOWEST 
TESTED AREA IN STORAGE 00-A9 FOR IL 50-99 FOR IH 



00A02 










l> vj rs o 


•t U t 




0OA02 


16 


00705 


-0000 


RCA 


TFM 


RTCF, 


RESET ROUTINE COUNT 


00A14 


49 


04702 


00000 




B 


HEAD 




00426 


43 


04602 


00704 


RCB 


BD 


EXIT,RTCF-1 


It C A i 1 


00A38 


49 


00502 


00000 




B 


RCC 




00502 










UORG 


♦♦53 




00502 


43 


00602 


00705 


RCC 


60 


RCD, RTCF, , 


BR PASS TWO 8877 


00514 


31 


00050 


04302 




TR 


50,TP1,, 


SET UP 


00526 


31 


00076 


04304 




TR 


76,TP1^2,, 


7788 TEST 


00538 


17 


00706 


-0001 




BTM 


IA,1, 




00602 










DORG 


♦ + 53 




00602 


31 


00050 


04402 


RCD 


FR 


50,TP2, , 


SET UP 


00614 


31 


00076 


04404 




TR 


76,TP2+2», 


8877 TEST 


00626 


17 


00706 


-0010 




8TM 


IA,10, 




00638 


41 


00000 


00000 




NOP 






00701 










UORG 


♦♦52 












• 


WRITE PATTERN 


THROUGH STORAGE 










• 


IN BLOCKS OF 


50 WITH TRANSMIT RECORD 


00705 




00005 




RTCF 


DC 


5,0, 




00706 


31 


04513 


04331 


I A 


TR 


AAD,KAD, , 


INITIALIZE 


00718 


31 


04538 


04331 




TR 


OAD,KAD, , 


ADO 


00730 


31 


044 34 


04345 




TR 


CAD,KCAD, , 


SIMULATION TABLES 


00742 


49 


00802 


00000 




B 


PUA 




00802 










DORG 


♦ ♦49 




00802 


16 


00820 


-0050 


POA 


TFM 


WTR*6f50t. 


SET START ADR 


00814 


31 


00000 


OOOliO 


WTR 


TR 


f 50, , 


WRITE FROM 50-99 INTO XXX50-XXX99 


00826 


47 


00914 


01900 




BNA 


Af^A 




00838 


49 


00902 


00000 




B 


PUB 




00902 










DORG 


♦ + 53 




00902 


27 


04906 


00820 


PUB 
• 


BT 


ER,WTR+6, ♦ 


ERROR 










• 


THIS ROUTINE 


STEPS THE TRANSMIT RECORD ADDRESS IN 










« 


INCREMENTS OF 


100 


00914 


31 


04512 


04513 


■ ♦ 
AMA 


TR 


AAD-1 ,AAO, f 


STEP 100 


00926 


25 


00818 


04513 




TD 


WTR+4, AAD, t 


SET 100 


00938 


49 


01002 


00000 




B 


AMB 




01002 










DQRG 


♦ + 53 




01002 


43 


00814 


04513 


AMB 


BD 


WTR, AAO, , 


BR NO CARRY 


01014 


31 


04513 


04331 




TR 


AAO,KAO, f 


RESTORE 100 


01026 


31 


04537 


04538 




TR 


BAD-1,BAD, , 


STEP IK 


01038 


49 


01104 


00000 




B 


AMC 




01102 










DORG 


♦ + 53 




01102 


25 


00817 


04538 


AMC 


TD 


WTR+3,BAD, , 


SET IK 


01114 


43 


00814 


04538 




BD 


WTR, BAD, , 


BR NO CARRY 


01126 


31 


04538 


04331 




TR 


BAD,KAD, t 


RESTORE IK 


0U38 


49 


01202 


00000 




8 


AMD 




01202 










DORG 


♦ + 53 




01202 


31 


04433 


04434 


AMD 


TR 


CA0-1,CAD,, 


STEP lOK 
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01214 25 008-16 04434 
01226 43 008^14 04434 
01238 49 01302 00000 
01302 



TO WTR+2fCAD»f 
BD WTR.CADtt 
B HKL 
DORG •+53 



SET lOK 

NO BR ON END MEM 



COMPLEMENT AND RESTORE THE PATTERN DIGIT BY DIGIT 
FIRST SET UP STARTING ADDRESSES 



01302 


15 


02307 


00005 


HKL 


TDM 


n IS V t ? t • 




01314 


31 


10739 


02241 




TR 


RAO,KRAD, , 


INITIALIZE 


01326 


31 


04538 


04331 




TR 


SADf KAOt ff 


ADD 


01338 


49 


01402 


00000 




B 


HKM 




01402 










DORG 


• + 53 




01402 


31 


04513 


04331 


HKM 


TR 


TAOtKADt f 


SIMULATION 


01414 


31 


04434 


04345 




TR 


UADiKCAOf t 


TABLES 


01426 


25 


02313 


00050 




TO 


X,50., 


INITIALIZE X 


01438 


49 


015,02 


00000 




B 


HKN 




01502 








DORG 


• ♦53 




01502 


25 


02613 


00052 


HKN 


TO 


Y,52., 


INITIALIZE Y 


01514 


25 


01613 


02313 


HKP 


TO 


XS D X t t 


SWAP 


01526 


25 


02313 


02613 




TO 


X f Y 1 t 


TEST 


01538 


49 


01602 


00000 




6 


HK9 




01602 










DORG 


•+53 




01602 


15 


02613 


00000 


HKQ 


TDM 


Y,», 


DIGITS 


01613 




00000 




XS 


OS 


t* 





0161<» 


26 


02319 


02 30 7 


HKQI 


TF 


WRQ + 5,WRA<-5, , SET 


01626 


26 


02419 


02 307 




TF 


WRe + 5,WRA+5t t 


01638 


49 


01702 


00000 




B 


HK^ 


01702 










DORG 


• + ^3 


01702 


26 


02607 


02 307 


HKS 


TF 


WRG+5,WRA+5, t 


01714 


26 


02431 


02307 




TF 


WRF + 5,WRA+5f t 


01726 


26 


02619 


02307 




TF 


WRH+5,WRA+5i t 


01738 


49 


01802 


00000 




B 


HKU 


01802 










DORG 


• + 53 


01802 


26 


02907 


02307 


HKU 


TF 


WRN + 5,WRA + 5t t 


01814 


26 


02719 


02 30T 




TF 


WRL+5,WRA+5t t 


01826 


26 


02731 


0230? 




TF 


WRM+5»WRA+5, t 


01838 


49 


01902 


00000 




B 


HKV 


01902 










DORG 


♦ + 53 


01902 


26 


02919 


02307 


HKV 


TF 


WRP+5,WRA+5, ♦ 


01914 


26 


03019 


02307 




TF 


WRS + 5,WRA + 5f t 


01926 


26 


03031 


02307 




TF 


WRT + 5»WRA+5t t 


01938 


49 


02002 


00000 




B 


HKW 


02002 










DORG 


♦ + 53 


02002 


26 


03207 


02307 


HKW 


TF 


WRU+5,WRA+5 


02014 


26 


03219 


02307 




TF 


WRV+5,WRA+5 


02026 


26 


03319 


02307 




TF 


WRY+5,WRA + 5» » 


02038 


49 


02102 


00000 




B 


HKY 


02102 










DORG 


» + 53 


02102 


26 


03507 


02307 


HKY 


TF 


WRAA+5,WRA+5, . 


02114 


26 


03519 


02307 




TF 


WRBA+5,WRA+5t 1 


02126 


26 


03331 


02307 




TF 


WRZ+5»WRA+5, f 


02138 


49 


02202 


OOOOG 




B 


HKZ 



THE SUCEEDING ARRAY OF TRA.NSMIT FIELD INSTRUCTIONS 

ARE USED TO UPDATE THE CURRENT ADDRESS IN THE FOLLOWING 

COMPLEMENT ANO-RESTORE ROUTINE 

AOR 
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02202 










DORG 


*^53 


02202 


26 


03619 


02307 


HKZ 


TF 


WREA*5fWRA+5, , 


022U 


26 


03631 


02307 




TF 


WRFA + ^>WRA^5* f 


02226 


^9 


02 302 


00000 




B 


WRA 


02236 




00000 




TST 


DS 


»•-! 


02238 




OOOO'O 


00000 




NOP 




022A1. 




0C0O6 




KRAD 


osc 


8 t 5678950 • ,»-8 


022*1 




00000 




KEAO 


OS 


tKRAO 


02302 










DORG 


• ♦53 



• 

• NOW WE ACTUALLY COMPLEMeNT AND RESTORE THE TESTED DIGIT 

• THE BIG LOOP IS USED TO SPEED UP THE PROGRAM WHICH 

• WOULD BE IMPOSSIBLY SLOW WITH A ONE ADDRESS AT A TIME LOOP 
• 





1 c 
1 0 


- 0000 


f\ f\ f\ r\ r\ 

00000 


LI U A 

WK A 


T A ki 

1 DM 


0» f 2t 


WR COMP 


0 


02 313 




00000 




X 


DS 


» • 






0 2 3 1 '» 


25 


COOO I 


02313 


WRD 


TO 


1 tXt t 


WR COMP 




02 326 


47 


024 14 


01900 




SNA 


WRE 






02338 


49 


02402 


00000 




B 


WRCl 






02<»02 










DORG 


• ♦53 






02402 


27 


108Q6 


02308 


WRCl 


BT 


ERRf WRA.+6» f 


ERROR 




0241A 


25 


OCOQO 


02613 


WRE 


TD 


OtY, , 


RESTORE 


0 


02A26 


25 


00001 


02613 


WRF 


TD 




RESTORE 


i 


02^38 


49 


02502 


00000 




0 


WRFl 






02502 










DORG 


• ♦53 






02502 


47 


02526 


0 1900 


WRFl 


BNA 


WRF2 






0 2 5 1 A 


2 7 


10806 


02420 




BT 


ERRt WRE^6t t 


ERROR 




02526 


46 


02302 


00200 


WRF2 


DC2 


WRA, « » 


LCOP 




02538 


49 


02602 


00000 




B 


WRG 






A o #\ *> 

026U2 










DORG 


• ♦53 






0 £0\JC 


i O 


00002 


02613 


WRG 


TDM 


2, Y, , 


WR COMP 


z 


A *:> 1 "2 




OCOOO 




Y 


OS 


t • 






0?6l<» 


2 5 


0C003 


02613 


WRH 


TD 


3, Y» t 


WR COMP 


3 


02626 


47 


02714 


01900 




BNA 


WRL 






02638 


49 


02702 


00000 




B 


WRHI 






n 5 7 A 5 










UUKl* 


• ♦!> 3 






02702 


27 


10806 


02&08 


WRHI 


BT 


ERR,WRG^6t , 


ERROR 




02714 


25 


0CQO2 


02313 


WRL 


TD 


2,X, , 


RESTORE 


2 


02726 


25 


0OQO3 


02313 


WRM 


TD 


3,X,, 


RESTORE 


3 


02738 


49 


02002 


00000 




B 


WRMl 






02802 










DORG 


• ♦53 






02802 


47 


02$26 


01900 


WRMl 


BNA 


rtRM2 






02814 


27 


10806 


0272C 




BT 


ERR,WRL^6, . 


ERROR 




02826 


46 


02602 


00200 


WRM2 


BC2 


WRG.,, 


LCOP 




02838 


49 


02*^02 


00000 




B 


WRN 






02902 










DURG 


• ♦53 ' 






02902 


25 


0C004 


02313 


WRN . 


TD 


4,X, , 


WR COMP 


4 


02914 


25 


00005 


02313 


WRP 


TD 


5,X, , 


WR COMP 


5 


02926 


4 7 


03014 


01900- 




BNA 


WRS 






02938 


49 


03002 00000 




8 


WRPl 






03002 










DORG 


• ♦53 






03002 


27 


10806 


02908 


WRPl 


BT 


ERR,WRN^6, , 


ERROR 




03014 


25 


00004 


02613 


WRS . 


TD 


4,Y,, 


RESTORE 


4 


03026 


25 


00^05 


02613 


WRT 


TD 


5,Y,, 


RESTORE 


5 


03038 


49 


03|02 


00000 




B 


WRTl 






03102 










DORG 


• ♦53 






03102 


47 


03126 


01900 


WRTl 


SNA 


WRT2 






03114 


27 


10806 


03020 




BT 


ERK, WRS^6, , , 


ERROR 




03126 


46 


02^02 


00200 


WRT2 


QC2 


WRN,,, 


LCOP 
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n "a 1 :i ft 
U ^ X ^ o 


*t Tr 




A A AAA 


















A AAA A 


A "5 A 1 1 


WKU 




C. !) 


A A A A 7 
UUUO 1 


A *> A 1 5 
020 J. 3 


LI □ \l 

WKV 




A -7 
H f 


A 1 A 

U 3 3 I *t 


A 1 O A A 
U I V U U 






AO 

49 


A ^ "3 A "> 

03302 


A A A A A 
OOOOO 




rt 1 "a A o 










03302 


2-7 


1 A O A A 

10806 


03208 


WRVl 


Dili A 


2!> 


A A AAA 

OOOOo 


02313 


WRY 


A "X ^ "!> A 


2!> 


A A A A 7 

0000 / 


023 I 3 


WRZ 


A n ^ O 

0 333o 


/ A 

49 


03402 


r\ r\ r\ r\ r\ 

OOOOO 




A "5 A A 

0 3mOZ 










A 1 A 1 

0 3*»02 


47 


03426 


01900 


WRZl 


0 3^14 


2 7 


1 0806 


03320 




U3H£0 


A'A 
HO 


A 1 "> A O 

0 3202 


A A O A A 

00200 


WRiZ 


U 3*»3o 


A-O 


A 1 C AO 

03D02 


A A A A A 
UOOOU 




U 3!>U£ 










U iOxJc 


2D 


A A A A U 

0 UOUo 


02313 


WRA A 


n "21 c; 1 A 


2!> 


A A A A Q 
00009 


A O "J 1 1 

02313 


IJ O D A 

WRoA 


u J 3^: o 


A. 7 


A A 1 A 


A 1 Q A A 






AQ 


A jt A A 5 
U30Ua 


A A A A A 
UOOOiJ 
















O 7 

2 » 


1 A Q A / 

1 0806 


A ^ C A O 

03508 


WRBAl 


0 3614 


25 


00008 


02613 


WREA 


03626 


25 


00009 


02613 


WRFA 


0 3638 


A A 

49 


A ^ "» A O 

03702 


OOOOO 




03702 










03702 


47 


03726 


01900 


WRFAl 


0 3 f I H 


O 7 

27 


1 A O A i 

1 0H06 


03620 




A ^ "T ^ A. 

u 3 r £ o 


A A 

4o 


A ^ C A "5 

03d02 


A A A A 

00200 


WRF A2 




A Q 


A •> Q A 1 


A A A A A 
OOOOO 




A 1 Q A 1 

0 3oOc 








• 


03802 


31 


10738 


10739 


» 
• 

ASRA 


0381A 


25 


02307 


10739 




03826 


43 


01514 


10740 




03838 


49 


03902 


OOOOO 




C3902 










03902 


31 


10739 


0224 I 


ASRB 


03914 


31 


04537 


04538 




0 3926 


25 


02306 


04538 




0 3938 


/ A 

49 


04002 


OOOOO 




A AAA O 

04002 










A A A A *> 

04002 


43 


016 14 


04530 


ASRC 


A A A 1 A 
040 i 4 


3 1 


04^>38 


04331 




A A A 1 A 

04026 


3 1 


04t) 1 2 


04513 




04038 


49 


04 102 


OOOOO 




04102 










04102 


25 


02305 


04513 


ASRD 


04114 


43 


01614 


04513 




04126 


31 


04513 


04331 




04138 


49 


04202 


OOOOO 




04202 










04202 


31 


04433 


0443A 


ASRE 


04214 


25 


02304 


04434 




04226 


43 


01614 


04434 





DTX05H PN 



D 

D 


1 f D i 1 






DuRG 


j«. ^ c ^ 

♦ ■♦•53 






TO 


6 f Y, , 


WR COMP 


6 


TD 


7 » Y, , 


WR CGMP 


7 


BNA 


WRY 






B 


WRVl 






OORG 


• •♦•53 






BT 


ERRt WRU'*-6t f 


ERROR 




TD 


6tXt » 


RESTORE 


6 


TD 


7»X, f 


RESTORE 


7 


B 


WRZl 






DORG 


»-»^53 






BNA 


WRZ2 






BT 


ERR» WRY-f6t f 


ERROR 




BC2 


WRUi 1 1 


LOOP 




B 


WRAA 






DORG 


#♦•53 






T A 

TD 


8 f X » » 


WR COMP 


8 


TD 


9tXf » 


WR COMP 


9 


UNA 


WREA 






ri 
O 


1 i o n A 1 

WRuA I 






DORG 


»4-53 






BT 


ERRt WRAA4-6f t 


ERROR 




TD 


8tY# f 


RESTORE 


8 


TD 


9,Y,, 


RESTORE 


9 


B 


WRFAl 






DORG 


• ♦53 






BNA 


WRFA2 






BT 


ERR,WR£A*6,, 


ERROR 




BC2 


WRAA, , , 


LOOP 




B 


ASRA 






OORG 


•♦53 







THIS SECTION STEPS THE ADDRESS 
RESTORE LOOP 



TR 


RAD-1,RA0 


» t 


STEP TENS 


TD 


WRA+5,RAD 


1 1 


SET TENS 


BD 


HKP,RAD+l 


t f 


BR NO CARRY 


B 


ASRB 






DORG 


• ♦53 






TR 


RAU,KRAO, 


• 


RESTORE 


TR 


SAD-l,SAD 


f ff 


STEP 100 


TD 


WRA+4,SAD 


1 1 


SET 100 


B 


ASRC 






DORG 


• ♦53 






BO 


HKQl ,SAD, 


t 


BR NO CARRY 


TR 


SAU,KAD» , 




RESTORE 100 


TR 


TAD-1,TAD 


» t 


STEP IK 


B 


ASRD 






DORG 


• ♦53 






TD 


WRA>3»TAD 


* 9 


SET IK 


BD 


HKQ1,TA0# 




BR NO CARRY 


TR 


TADiKAD, , 




RESTORE IK 


8 


ASRE 






DORG 


• ♦53 






TR 


UAD~1,UAD 


t ♦ 


STEP lOK 


TD 


WRA^2»UA0 


ff • 


SET lOK 


BO 


HKQ1,UA0> 


ff 


BR NO CARRY 


2172334 EC 


404980 Page 



04238 49 00426 00000 
04302 



B RCB 
OORG •4-53 



04302 
04301 
04304 
04308 
04312 
04316 
04320 
04324 
04328 
04331 
04345 
04347 
04402 
04402 
04402 
04402 
04406 
04410 
04414 
04418 
04422 
04426 
04428 
04513 
04538 
04434 
04513 
04538 
04434 
04602 



000*27 

00004 
00004 
00OO4 
00004 
00004 
00004 
00004 
00013 
0C0O4 
O00O2 

00027 

COOOl 
00004 
00004 
00004 
00004 
00004 
00004 
00002 
00013 
00012 
00004 
00000 
00000 
00000 



TPl 



KAO 
KCAO 



TP2 



AAD 
BAD 
CAO 
TAD 
SAD 
UAO 



CONSTANTS AND ARITHMETIC WORKING AREAS 



DSS 

DORG 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DSC 

DSC 

DC 

DORG 

DSS 

DORG 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DSS 

OSS 

DSS 

DSS 

DSS 

DSS 

DORG 



27,, FIELD OF 7788 

•-27 

4,-8778 

4,-8778 

4,^8778 

4,-8778 

4,-8778 

4,-8778 

4,877« 

13,012345678901 • tTPl*29 
4,010* ,TPU43 
2t-10,KCA0*2 
TPl+lOO 



27,, 
»-26 
li8 

4,-8778 
4,-8778 
4,-8778 
4,-8778 
4,-8778 
4,-8778 
2,8« 

13,TP2-H11, 

12»AA0^25, 

4,TP2*32t 

,AAD 
,8A0 
,CAD 
AAO+89 



FIELD OF 8877 



100 ADD WORK AREA 
IK ADD WORK AREA 
lOK ADO WORK AREA 



♦ ' PASS COUNTER 

« 



04602 


39 


04 803 


OOlOO 


EXIT 


WATY 


PCNT,,, 


PRINT PASS COMPLETE 


04614 


46 


C0402 


00400 




BC4 


RCA 




04626 


36 


00000 


00500 




RNCD 


* 1 1 


READ NEXT PROGRAM 


04638 


49 


coooo 


OCOOO 




B 






04702 










DORG 


EXIT-HOO 




04702 


34 


ocooo 


00102 


HEAD 


RCTY 






04714 


39 


04831 


00100 




WATY 


HD, , , 


PRINT FARSE 1 


04726 


34 


00000 


00102 




RCTY 






04738 


49 


00426 


OOCOO 




B 


RCB 




04802 










DORG 


HEAD+lOO 




04803 




00014 




PCNT 


DAC 


14, PASS 


COMPLETE*, 


04831 




00007 




HO 


DAC 


7,DTX05H 


•t 


04901 










OORG 


PCNT+98 





« 

♦ ERROR ROUTINE- ERROR WHILE WRITING PATTERN 



04905 




00005 




ERRX 


DC 


5,0, 




04906 


46 


10338 


00100 


ER 


BCi 


BB,, , 


BYPASS ERROR, 


04918 


31 


11537 


04331 




TR 


DAD, KAO,, 


SET ADD CONSTANTS 


04930 


31 


10739 


02241 




TR 


EAD,KEAO 


04942 


49 


10002 


00000 




B 


ERA 
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10002 










D0R6 


10002 




10002 


47 


10014 


51655 


ERA 


BNI 


ERA1«51655«» 


RESET MBR-E CHECK IND 


10014 


47 


10026 


51755 


ERAl 


6NI 


ERA2»51755*, 


RESET MBR-0 CHECK INO 


10026 


26 


10113 


04905 


ERA2 


TF 


CTO*lltERRX,t SET ERROR FIELD ADDRESS 


10038 


49 


10102 


00000 




B 


CTD 




10102 










OORG 


• 4-53 




10102 


25 


11638 


-0000 


CTO 


TO 


PRC. •7« 


RFAD DICtT 


lOllA 


46 


10402 


01900 




BA 


ERD* • > 


FRRHR 


10126 


31 


11536 


11537 


CTD2 


TR 


DAD— 1 aDAD* . 


^TFP UNIT Ann 


10138 


49 


10202 


00000 




B 


ERB 




10202 










OORG 


• <»-53 




10202 


25 


10113 


11537 


ERB 


TO 


f Tn*. 1 1 , n An 




10214 


43 


10102 


11537 




BD 


r Tn n AH 

U 1 U t U AU 




10226 


31 


11537 


04331 




TR 


n An . K An. . 




10238 


49 


10302 


00000 




B 


ERC 




10302 










DORG 


• ♦53 




10302 


31 


10738 


10739 


ERC 


TR 




STEP TENS 


1031A 


25 


10112 


10739 




TO 


r Tn* 1 n . P An 




10326 


43 


10102 


10740 




BO 


C Til. F AD'fr 1 . . 




10338 


42 


OCOOO 


00000 


BB 


BB 


9 9 9 


RETURN 


10402 










DORG 






10402 


26 


11636 


10113 


£RD 


TF 


PRA*4.CTD*1 1 


aaSFT PRRflR AnnRP*^<C 


10414 


38 


11638 


OOlOO 




WNTY 


r 9 9 9 




10426 


26 


10508 


101L3 




TF 






10438 


49 


10502 


00000 




B 


FRF 

u. r\ t 




10502 










DORG 






10502 


25 


0-000 


11638 


ERE 


TO 


a PRT .la 


RP^Tnop Ann 


10514 


47 


10526 


50755 




BNI 


ERF I a50755a . 


Dcccf u'}ITP CUPfU 7Nn 


10526 


47 


10602 


51755 


EREl 


BNI 


FRF a 5 I 755a a 




10538 


49 


10602 


00000 




B 


FRF 


10602 










DURG 


• ♦53 




10602 


47 


10614 


51655 


ERF 


BNI 


ERFl«5l655f V 


RESET MBR-E CHECK IND 


10614 


39 


11703 


OOlOO 


ERFl 


WATY 


PRB 


10626 


38 


11632 


00100 




WNTY 


PRA,,, 


PRINT ERROR AOR 


10638 


49 


10702 


00000 




B 


ERG 




1 U f UC 










DORG 


• ♦53 




10702 


39 


11603 


OOlOO 


ERG 


WATY 


PR 




I U f I H 


34 


ty f\ r\ t\ r\ 

uCOOO 


00102 




RCTV 






10726 


49 


10126 


00000 




B 


CT02 




10739 




00007 




EAD 


OSS 


7, •♦2 




10739 




00000 




RAO 


OSS 


vEAD 




10738 


41 


00000 


00000 




NOP 






10801 








• 


OORG 


•♦52 












« 


ERROR ROUTINE 


- ERROR DURING COMPLIMENT 


10805 




00005 




ERRY 


DC 


5,0, 




10806 


46 


11514 


00100 


ERR 


BCl 


RET,,, 


BYPASS ERROR 


10818 


26 


10841 


10805 




TF 


ERRUIUERRY 


,,SET EVEN ERROR ADDRESS 


10830 


25 


10923 


00000 


ERRl 


TO 


PRJ» t» 


READ EVEN DIGIT 


10842 


49 


10902 


00000 




B 


ERRJ 


10901 










DORG 


• ♦48 




10902 


25 


11013 


10805 


ERR J 


TO 


ERRK^11,ERRY 


t«SET ADO TABLE ADDRESS 


10914 


49 


11002 


00000 




B 


ERRK 


10923 




00002 




prJ 


OSS 


2, •-2 




10925 




OOCOl 






DC 


I . • f • 




10926 


41 


00000 


00000 




NOP 






10938 


41 


00000 


00000 




NOP 






10940 




00009 




KHAO 


DSC 


9,123456789, 


»-9 
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1 1002 










DORG 


♦ -»-53 


1 1002 


25 


10805 


10940 


ERRK 


TD 


ERRYfKHAD,, READ TABLE 


11014 


26 


11037 


10805 




TF 


ERKH-lUERRYf ,SET ODD ERROR ADDRESS 


11026 


25 


10924 


00000 


ERKl 


TO 


PRJ+l,,t READ ODD DIGIT 


11038 


49 


1 1 102 


00000 




Q 


ERRL 


11102 










DORG 


»^-53 


11102 


38 


10923 


00100 


ERRL 


WNTY 


PRJ»»f PRINT ERROR DIGITS 


UllA 


26 


1 1208 


10841 




TF 


ERRM+6tERRl*ll 


11126 


26 


11220 


11037 




TF 


ERMl-i-6tERKl-«-ll 


11138 


49 


11202 


00000 




B 


ERRM 


11202 










OORG 


**53 


11202 


25 


00000 


10923 


ERRM 


TD 


•PRJtf RESTORE ERROR DIGITS 


1121<t 


25 


00000 


10924 


ERMl 


TO 


»PRJ*1 


11226 


47 


11302 


50755 




BNI 


ERRN,50755tt RESTORE CHECK IND 


11238 


49 


11302 


00000 




B 


ERRN, 


11302 










DQRG 


• ♦53 


11302 


47 


11314 


51755 


ERRN 


BNI 


ERNIf51755 


11314 


47 


11326 


51655 


ERNl 


ONI 


ERIS2t51655 


11326 


39 


11703 


OOlOO 


ERN2 


WATY 


PRQ 


11338 


49 


11402 


00000 




B 


ERRP 


11402 










DORG 


• ♦53 


1 1402 


26 


11523 


10841 


ERRP 


TF 


ERYl-»-4,ERRl*llt »SET ERROR ADDRESS FOR PRINT 


11414 


38 


11519 


00100 




WNTY 


ERYl,,, PRINT ERROR ADR 


1 1426 


39 


1 1603 


00100 




WATY 


PR 


11438 


49 


11502 


00000 




B 


ERRQ 


11502 










OORG 


♦ ♦53 


11502 


34 


coboo 


00102 


ERRQ 


RCTY 




11514 


42 


ooboo 


00000 


RET 


BB 


»t« RETURN 










• 
• 


CONSTANTS AND ARITHMETIC WORKING AREAS 


11519 




00006 




ERYl 


DSC 


6, •,•-6 


11526 


41 


00000 


00000 




NOP 




11537 




00012 




OAO 


DSS 


12. ♦ 


11538 


41 


POIDOO 


00000 




NOP 




11602 










OORG 


ERHO^lOO 


1 1603 




00015 




PR 


OAC 


15, IS ERROR ADR •» 


11632 




00005 




PRA 


DSS 


5 


11637 




00001 






DC 


It' 


1 1638 




00001 




PRC 


DSS 


1 


11639 




00001 






DC 


1 1 • 


11702 










DORG 


PR*99 


11703 




00014 




PRB 


OAC 


14, IS ERR CHAR •, 


00402 










DEND 


402 
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DT X05H 80/80 LIST 



36GOQ72005003600201005C044000 12002762600059002 74250001 100000260009000269 


-0000 


260009500264 31 00000002002600 L 14002742 50000000011490001200000 










-0001 


1600705-0000490470200C00430460200704490050200000* 


0- 


1- 


0402- 


0450 


-0002 


430060200705 3100050043023100076043041700706-0001* 


0- 


1- 


0502- 


0550 


-0003 


3100050044023100076044041700706-0010410000000000* 


0- 


1- 


0602- 


0650 


-0004 


-0000* 


1- 


1- 


0 701- 


0706 


-0005 


310451304331310453804331310443404345490080200000* 


0- 


1- 


0706- 


0754 


-0006 


1600820-005C3 100000000504 7009 140 1900490090200U00* 


0- 


1- 


0802- 


0850 


-0007 


2 704906008 20310451204 513250081804543490100200000* 


0- 


1- 


0902- 


0950 


-0008 


430081404513310451304331310453704538490110200000* 


0- 


1- 


1002- 


1050 


-0009 


2500817045 38430081404 53831045 3804331490120200000* 


0- 


1- 


1102- 


1150 


-COlO 


31044 33044342500816044 34430081404434490130200000* 


0- 


l- 


1202- 


1250 


-0011 


15023070000531107390224131045380433149014 0200000* 


0- 


1- 


1302- 


1 350 


-0012 


310451304 331310443404 345250231300050490150200000* 


0- 


1- 


1402- 


1450 


-0013 


250261300052250161302 3132 50231302 613490160200000* 


0- 


1- 


1502- 


1550 


-0014 


150261300000260231902 307260241902 307490170200000* 


0- 


1- 


1602- 


1650 


-0015 


260260702 307^6024 3102307260261902307490180200000* 


0- 


1- 


1702- 


1750 


-0016 


260290 r02 3072602 7 1902 307260273 102307490190200000* 


0- 


1- 


1802- 


1350 


-0017 


260291902 307260301902307260303102 307490200200000* 


0- 


l- 


1902- 


1950 


-0018 


260320702307260321902 307260331902307490210200000* 


0- 


l- 


2002- 


2050 


-0019 


260350702 307260351902 307260 33 3102 307490220200000* 


0- 


1- 


2102- 


2150 


-0020 


260361902307260363102 3074902 30200000410000000000* 


0- 


1- 


2202- 


2250 


-0021 


5678950* 


1- 


1- 


2241- 


2249 


-0022 


15-000000000250000102 3134 70241401900490240200000* 


0- 


l- 


2302- 


2350 


-0023 


2 71080602 308250000002613250000102613490250200000* 


0- 


1- 


2402- 


2450 


-0024 


4 70252601900^71080602420460230200200490260200000* 


0- 


1- 


2502- 


2550 


-0025 


150000202613250000302613470271401900490270200000* 


0- 


1- 


2602- 


2650 


-0026 


2 71080602608 250000202 31325000 0 302 3134902 80200000* 


0- 


l- 


2702- 


2750 


-0027 


4 70282601900271080602 7204602602002004 90290200000* 


0- 


1- 


2802- 


2850 


-0028 


250000402313250000502 3134 7030 140 1900490300200000* 


0- 


1- 


2902- 


2950 


-0029 


2 71 0806029082500004026 132500005026 1 34903 10200000* 


0- 


1- 


3002- 


3050 


-0030 


4703126019002 7108060 30 20460290200200490320200000* 


0- 


1- 


3102- 


3150 


-0031 


2 500006C26 1 3250000 702613470331401900490330200000* 


0- 


1- 


3202- 


3250 


-0032. 


2 71080603208250000602 313250000702313490340200000* 


0- 


l- 


3302- 


3350 


-0033 


4 7034 26019002 7108060 3 320460320200200490350200000* 


0- 


1- 


3402- 


3450 


-C034 


250000802313250000902 313470361401900490360200000* 


0- 


1- 


3502- 


3550 


-0035 


2 71080603508250000802613250000902613490370200000* 


0- 


l- 


3602- 


3650 


-0036 


4 703726019002 71080603620460350200200490380200000* 


0- 


l- 


3702- 


3750 


-0037 


311073810 7392502307107 39430151410740490390200000* 


0- 


1- 


3802- 


3850 


-0038 


311073902241310453704 5 38250230604538490400200000* 


0— 


1- 


3902- 


3950 


-0039 


4 3016140453831045380^3 31310451204513490410200000* 


0- 


1- 


4002- 


4050 


-0040 


2 502305045 1 34 30 1614045 13 3 104 5 1304 331 49042 0200C00* 


0- 


1- 


4102- 


4150 


-0041 


31044 33044342 50230404 4 34430161404434490042600000* 


0- 


1- 


4202- 


4250 


-C042 


Q77QQ77QQ77QQ77QQ77GQ77QQ77* 


l- 


1- 


430 1- 


4 329 


-0043 


012345678901* 


1- 


1- 


4331- 


4344 


-0044 


010* 


1- 


1- 


4345- 


4349 


-0045 


J-* 


1- 


1- 


4346- 


4348 


-0046 


QQ77QQ77QQ77QQ77QQ77Q077QQ* 


l- 


1- 


4402- 


4429 


-0047 


390480300100460040200400360000000500490000000000* 


0- 


1- 


4602- 


4650 


-0048 


340000000102390483100100340000000102490042600000* 


0- 


1 « 


4702- 


4750 


-0049 


N74 1626?004^SiSS4S7«>'i4«iA«'%^«ini 


I— 


l- 


•4802- 


4830 


-0050 


M463677075480* 


l- 


1- 


4830- 


4844 


— 005 1 


-0000* 


1- 


1- 


4901- 


4906 


-0052 


461033800100311153704331311073902241491000200000* 


0- 


1- 


4906- 


4954 


-0053 


4 71001451655471002651755261011304905491010200000* 


0- 


1J0002J0050 


-0054 


2511638-000046104020190031 115361153 7491020200000* 


0- 


1J0102J0150 


-0055 


251011311537431010211537311153704331491030200000* 


0- 


1J0202J0250 


-0O56 


31 10738107392510 112 1073943 10 102 10740420000000000* 


0- 


1J0302J0350 


-0057 
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261 16361 01 1338 1 1638001 0026 10508 10113A91050200000* 


0- 


1J0402J0450 


-0058 


250-000116384710 52650755471060251755491060200000+ 


0- 


1J0502J055O 


-0059 


4 7 106 145 165539 U 70300 10038 1163200 100491070200000* 


0- 


1J0602J0650 


-0060 


391 16030010034C0C0000 10249 1012600000410000000000* 


0- 


IJ0702J0750 


-0061 


-0000* 


1- 


IJ0801J0806 


-0062 


461151400100261084110805251092 300000491090200000* 


0- 


1J0806J0854 


-0063 


251101310805491100200000* 


0- 


1J0902J0926 


-0064 


t 


1- 


1J0925J0926 


-0065 


4 100000000004 lOOOOOOOOCO* 


0- 


1J0926J0950 


-0066 


123456789* 


L- 


1J0940J0949 


-0067 


2 510805109402611037108052 51092400000491110200000* 


0- 


IJ 1002J 1050 


-0068 


381092300100261120810841261122011037491120200000* 


0- 


lJil02Jll50 


-0069 


250000010923250000010924471130250755491130200000* 


» 0- 


1J1202J1250 


-0070 


471131451755471132651655391170300100491140200000* 


0-- 


IJ1302J1350 


-0071 


261 15231 0841.38 1 15 1900 10039 1160300 100491 150200000* 


0- 


1J1402J1450 


-0072 


340000000 1O242000OCO0CC0* 


0- 


1J1502J1526 


-0073 


00000* 


1- 


1J1519J 1525 


-0074 


410000000000.410000000000* 


0- 


1J1526J1550 


-0075 


-04962004559595659C04 14459000* 


l- 


1J1602J1632 


-0076 


* 


l- 


1J1637J1638 


-0077 


* . 


1- 


IJ1639J1640 


-0078 


-04962004559590043484159000* 


l- 


1J1702J1730 


-0079 


00000 L6000bo00500490COOO* 




8-0096-0115 


-0080 



3600 10000500 3600 172005CO 360024400500 3 6003 1600500 3600 00000500 -00 81 

0000000000001020 30400020406080003060902 100408021610050015102006021014200* -0082 

704112820080614223009081726300000000005060708090012141618151811242 720242* -0083 

8223635203530454036 324844553249465 3604846546 2 75445 362718012345678912 3456* -0084 

789-2 3456789- J3456789-JK456789-JKL56789-JKLM6789-JKLMN789-JK1.MNC89-JKLMN* -0085 

M80000G0000049-04020P9-JKLMN0PQ* L 100388000 19M90000000000M9C003600000 -0086 
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